﻿Public Class IstatistikIssizlikFis
    Inherits Process

    Dim Ilk, Son As Integer

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
        'Select Case e.EventType
        '    Case EventType.Initialize
		'        Text ="İşsizlik İstatistik Fişi Girişi"
        '        InitialHelp = "Şubeyi seçin ve yıl/ay bilgilerini girin."
        '        AddField("Sube", "", "", "Şubeyi seçmelisiniz.")
        '        AddField("Yil", "", "", "Yılı belirtmelisiniz.")
        '        AddField("Ay", "nl", "", "Ayı belirtmelisiniz.")
        '        StartBody()
        '        Buttons.Add("Meslek", "Meslek Türleri")
        '        AddList()
        '        List.Caption = "Yatırımlar"
        '        List.AddColumn("istno", "İst.No.", "c", "90")
        '        List.AddColumn("+meslek", "Meslek", "l", "50%", "select deger as Kod, ad from ssd..parametre where grup = 'Meslek'")
        '        List.AddColumn("+neden", "Ödememe Nedeni", "l", "50%", "select deger as Kod, ad from ssd..parametre where grup = 'İşsizlik Ödememe Nedeni'")
        '        DisplayForm()
        '    Case EventType.ValidateForm
        '        Dim Rs As Recordset = OpenSQL("select * from istsirano where grup = 'İşsizlik' and bolge = :sube and yil = :yil and ay = :ay", Input("Sube"), Input("Yil"), Input("Ay"))
        '        If Rs.EOF Then
        '            Warning("Bu döneme ait fiş bulunamadı.")
        '            Focus("Sube")
        '            Exit Sub
        '        End If
        '        Ilk = Rs("ilk")
        '        Son = Rs("son")
        '        If Ilk = 0 Or Son = 0 Then
        '            Warning("Bu döneme ait fiş bulunamadı.")
        '            Focus("Sube")
        '            Exit Sub
        '        End If
        '        Help = "Fiş bilgilerini girin."
		'        List.Rows.Clear()
		'        List.Rows.Add(CInt(Son - Ilk + 1))
		'        For i As Integer = Ilk To Son
		'            List.Rows(i - Ilk).Cells(0).Value = i
		'        Next
		'        Rs = OpenSQL("select * from istiszfis where bolge = :bolge and istno between :ilk and :son order by istno", Input("Sube"), Ilk, Son)
		'        Dim RowIndex As Integer = 0
		'        Do Until Rs.EOF
		'            Do Until List.Rows(RowIndex).Cells(0).Value = Rs("istno")
		'                RowIndex += 1
		'            Loop
		'            With List.Rows(RowIndex)
		'                If Not IsDBNull(Rs("meslek")) Then .Cells(1).Value = Trim(Rs("meslek"))
		'                If Not IsDBNull(Rs("neden")) Then .Cells(2).Value = Trim(Rs("neden"))
		'            End With
		'            Rs.MoveNext()
		'        Loop
		'        Buttons.Show("Save.Reset.Meslek")
		'        e.Result = True
		'    Case EventType.Other
		'        If e.Name <> "Meslek" Then Exit Sub
		'        Dim Process As New IssizlikMeslekTurleri
		'        Process.Run(Window)
		'    Case EventType.Save
		'        ExecSQL("delete from istiszfis where bolge = :bolge and istno between :ilk and :son", Input("Sube"), Ilk, Son)
		'        For Each Row As DataGridViewRow In List.Rows
        '            Save("istiszfis", "bolge,istno,meslek,neden", Input("Sube"), Row.Cells(0).Value, Row.Cells(1).Value, Row.Cells(2).Value)
        '        Next
        '        Info("Fiş bilgileri kaydedildi.")
        '        FormRestart()
        'End Select
    End Sub

End Class

